home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jtextmouse.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  6.2 KB  |  203 lines
  1. # jtextmouse.tcl - support for Text mouse bindings
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. # TO DO:
  8. # ^L
  9. # sentence-manipulation stuff
  10. # case change commands, transposition commands
  11. # commands to do with mark?
  12. # word deletion - fix to use buffer
  13. # generalise movement to copying-to-cutbuffer and deletion
  14. # IMPROVE ENTRY BINDINGS
  15. # literal-insert for entry
  16.  
  17.  
  18. ######################################################################
  19. # global variables:
  20. #
  21. global J_PREFS env
  22. if {! [info exists J_PREFS(bindings)]} {set J_PREFS(bindings) basic}
  23. if {! [info exists J_PREFS(typeover)]} {set J_PREFS(typeover) 1}
  24. #
  25. ######################################################################
  26.  
  27. ######################################################################
  28. # routines to let scanning and pasting to double-up on the same button
  29. # based on code by Tom Phelps <phelps@cs.berkeley.edu>
  30. # modified by jay to make it a little easier to paste
  31. ######################################################################
  32.  
  33. # j:tmb:start_scan_or_paste W x y t - start a drag or paste, recording
  34. #   current location and time so we can later decide whether to paste or drag
  35. # BIND TO <ButtonPress-N>
  36. proc j:tmb:start_scan_or_paste { W x y t } {
  37.   global j_teb
  38.   $W scan mark $y
  39.   set j_teb(scanpaste,time) $t
  40.   set j_teb(scanpaste,x) $x
  41.   set j_teb(scanpaste,y) $y
  42.   set j_teb(scanpaste,pasting) 1
  43. }
  44.  
  45. # j:tmb:continue_scan W x y t - scan the entry, and mark the fact that
  46. #   we're scanning, not pasting.  won't scan if the mouse has moved only
  47. #   one pixel.
  48. # BIND TO <BN-Motion>
  49. proc j:tmb:continue_scan { W x y t } {
  50.   global j_teb
  51.   
  52.   set xdiff [expr {abs($x - $j_teb(scanpaste,x))}]
  53.   set ydiff [expr {abs($y - $j_teb(scanpaste,y))}]
  54.   
  55.   if {$xdiff >= 2 || $ydiff >= 2} {
  56.     $W scan dragto $y
  57.     set j_teb(scanpaste,pasting) 0
  58.   }
  59. }
  60.  
  61. # j:tmb:end_scan_or_paste W x y t - if we haven't been scanning, and it's
  62. #   been less than 500ms since button-down, paste selection
  63. # BIND TO <ButtonRelease-N>
  64. proc j:tmb:end_scan_or_paste { W x y t } {
  65.   global j_teb
  66.   if {$j_teb(scanpaste,pasting) &&
  67.       [expr {$t-$j_teb(scanpaste,time)}] < 500} {
  68.     # j:tb:paste_selection $W
  69.     catch {
  70.       focus $W
  71.       j:text:insert_string $W [selection get]
  72.     }
  73.   }
  74. }
  75.  
  76. ######################################################################
  77. # routines to allow scrolling during text selection
  78. # from raines@cgibm1.slac.stanford.edu (Paul E. Raines)
  79. # modifications by js@bu.edu (Jay Sekora) to make it a little
  80. #   harder to make a selection, so you don't do it accidentally
  81. #   when you just want to move.
  82. ######################################################################
  83.  
  84. # j:tmb:move_sel W x y - move and begin a selection
  85. proc j:tmb:move_sel { W x y t } {
  86.   global j_teb J_PREFS tk_priv
  87.   set j_teb(dragscroll,txnd) 0
  88.   set j_teb(dragscroll,x) $x
  89.   set j_teb(dragscroll,y) $y
  90.   
  91.   set my_name [lindex [info level 0] 0]
  92.   set j_teb(last_command,$W) $my_name    ;# solves Emacs ^K, click, ^K problem
  93.   
  94.   if $J_PREFS(typeover) {
  95.     # clear current selection:
  96.     $W tag remove sel 1.0 end
  97.   }
  98.   # do what normal Tk binding does:
  99.   set tk_priv(selectMode) char
  100.   j:text:move $W @$x,$y
  101.   $W mark set anchor insert
  102.   if {[lindex [$W config -state] 4] == "normal"} {focus $W}
  103. }
  104.  
  105. # j:tmb:move W x y - move, don't change selection
  106. proc j:tmb:move { W x y t } {
  107.   global j_teb
  108.   set my_name [lindex [info level 0] 0]
  109.   set j_teb(last_command,$W) $my_name    ;# solves Emacs ^K, click, ^K problem
  110.   
  111.   j:text:move $W @$x,$y
  112.   $W mark set anchor insert
  113.   if {[lindex [$W config -state] 4] == "normal"} {focus $W}
  114. }
  115.  
  116. # j:tmb:drag_sel W x y - begin dragging out selection
  117. proc j:tmb:drag_sel { W x y t } {
  118.   global j_teb
  119.   
  120.   set xdiff [expr {abs($x - $j_teb(dragscroll,x))}]
  121.   set ydiff [expr {abs($y - $j_teb(dragscroll,y))}]
  122.   
  123.   if {$xdiff < 3 && $ydiff < 3} {
  124.     return
  125.   }
  126.   
  127.   if {$y > [winfo height $W]} {
  128.     if {!$j_teb(dragscroll,txnd)} {
  129.       after $j_teb(dragscroll,delay) j:tmb:extend_sel $W $x $y $t
  130.     }
  131.     set j_teb(dragscroll,txnd) 1
  132.     set j_teb(dragscroll,direction) down
  133.   } else {
  134.     if {$y < 0} {
  135.       if {!$j_teb(dragscroll,txnd)} {
  136.         after $j_teb(dragscroll,delay) j:tmb:extend_sel $W $x $y $t
  137.       }
  138.       set j_teb(dragscroll,txnd) 1
  139.       set j_teb(dragscroll,direction) up
  140.     } else {
  141.       set j_teb(dragscroll,txnd) 0
  142.       set j_teb(dragscroll,direction) 0
  143.     }
  144.   }
  145.  
  146.    if {!$j_teb(dragscroll,txnd)} {
  147.       tk_textSelectTo $W @$x,$y
  148.   }
  149. }
  150.  
  151. # j:tmb:extend_sel W x y t - drag out a selection, scrolling if necessary
  152. proc j:tmb:extend_sel { W x y t } {
  153.   global j_teb
  154.  
  155.   if {$j_teb(dragscroll,txnd)} {
  156.     if {$j_teb(dragscroll,direction) == "down"} {
  157.       tk_textSelectTo $W sel.last+1l
  158.       $W yview -pickplace sel.last+1l
  159.     } else {
  160.       if {$j_teb(dragscroll,direction) == "up"} {
  161.         tk_textSelectTo $W sel.first-1l
  162.         $W yview -pickplace sel.first-1l
  163.       } else { return }
  164.     }
  165.     after $j_teb(dragscroll,delay) j:tmb:extend_sel $W $x $y $t
  166.   }
  167. }
  168.  
  169. # j:tmb:end_sel W - finish a selection
  170. proc j:tmb:end_sel { W args } {
  171.   global j_teb
  172.   set j_teb(dragscroll,txnd) 0
  173. }
  174.  
  175. ######################################################################
  176. # set up text mouse bindings
  177. #   these supplement, rather than replace, the standard Tk bindings.
  178. ######################################################################
  179.  
  180. proc j:tb:mouse_bind { W } {
  181.   global j_teb
  182.   
  183.   j:tk3 {                ;# bindings are superfluous in Tk 4
  184.     # mouse bindings (for motion and scrolling selections)
  185.     bind $W <Button-1>        {j:tmb:move_sel %W %x %y %t}
  186.     bind $W <Control-Button-1>    {j:tmb:move %W %x %y %t}
  187.     bind $W <B1-Motion>        {j:tmb:drag_sel %W %x %y %t}
  188.     bind $W <ButtonRelease-1>    {j:tmb:end_sel %W %x %y %t}
  189.     
  190.     # mouse bindings (for scanning and pasting)
  191.     bind $W <Button-2>        {j:tmb:start_scan_or_paste %W %x %y %t}
  192.     bind $W <B2-Motion>        {j:tmb:continue_scan %W %x %y %t}
  193.     bind $W <ButtonRelease-2>    {j:tmb:end_scan_or_paste %W %x %y %t}
  194.   
  195.     # mouse bindings (for scanning and pasting)
  196.     bind $W <Button-3>        {j:tmb:start_scan_or_paste %W %x %y %t}
  197.     bind $W <B3-Motion>        {j:tmb:continue_scan %W %x %y %t}
  198.     bind $W <ButtonRelease-3>    {j:tmb:end_scan_or_paste %W %x %y %t}
  199.   }
  200. }
  201.  
  202.  
  203.